home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / Port2zeitweise.zprx < prev    next >
Text File  |  1995-03-09  |  2KB  |  62 lines
  1. /**************************************************************************
  2.  *                      $VER:Port2zeitweise.zp von D.Weber V0.66 (20.5.1994)
  3.  * Netcallscript  für  Server  mit  2.Ports,  von dem einer nur zeitweise *
  4.  * online  ist  von  Dirk Weber Ich übernehme keinerlei Verantwortung für *
  5.  * irgendwas,   was  dieses  Skript  verursacht!  Bugs  bitte  melden  an *
  6.  * WEBER@DEBUWI.GUN.DE                                                    *
  7.  * Lauffähig erst ab ZP-Version >= 37.137 !                               *
  8.  * Aufruf über F-Taste: in fkeys.zp mit Parameterübergabe eintragen. Bsp: *
  9.  * F2:SYS:REXXC/RX ZP:Scripts/Port2zeitweise.zp %s                    *
  10.  **************************************************************************/
  11.  
  12. parse arg zpPort
  13.  
  14. /* Configdatei für 24h online Port(s) */
  15. ofl=config2.zp
  16.  
  17. /* Configdatei mit allen Ports online */
  18. onl=config.zp
  19.  
  20. /* Configdatei der ständigen Benutzung */
  21.  
  22. cfg=config3.zp
  23.  
  24. /* Offlinezeitbegin, erste offline-Stunde eingeben  Bsp. ab 5.59 offline -> 2beg=6 */
  25.  
  26. beg=6
  27.  
  28. /* Offlinezeitende, letzte offline-Stunde eingeben Bsp. ab 18:00 online -> 2end=17 */
  29.  
  30. end=17
  31.  
  32. address value zpPort
  33. options results
  34.  
  35. WHICHLEVEL
  36. IF (RESULT = 'MAINMENU') THEN CALL nc
  37.     ELSE DO
  38.         REQUESTRESPONSE 'Du befindest Dich nicht im Hauptmenu. Netcall trotzdem starten?'
  39.         IF RC=1 THEN DO
  40.             WHICHLEVEL
  41.             IF (RESULT = 'BOARDMENU') THEN DO
  42.                 MAINMENU
  43.                 CALL nc
  44.             EXIT
  45.             END
  46.             ELSE DO
  47.                 BOARDMENU
  48.                 MAINMENU
  49.                 CALL nc
  50.             EXIT
  51.             END
  52.          EXIT
  53.         END
  54.         ELSE EXIT
  55.     END
  56. EXIT
  57.  
  58. nc: LOADCONFIG onl
  59.     IF TIME('H')>beg THEN IF TIME('H')<end THEN LOADCONFIG ofl
  60.     NETCALL
  61.     LOADCONFIG cfg
  62.